home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / dosutils / sense13b.zip / SHWSENSE.PAS < prev    next >
Pascal/Delphi Source File  |  1996-02-17  |  997b  |  31 lines
  1. program ShwSense;
  2.  
  3. {
  4. ┌─────────────────────────────────────────────────────────────────────────┐
  5. │Mouse sensitivity viewer (ShwSense v1.3b) Copyright (c) 1996 by Virtuoso.│
  6. │                                                                         │
  7. │  20/01/96 (1.0a) - implementation.                                      │
  8. │  28/01/96 (1.1b) - new version.                                         │
  9. │  30/01/96 (1.1c) - new version.                                         │
  10. │  06/02/96 (1.2c) - new version.                                         │
  11. │  17/02/96 (1.3b) - new version.                                         │
  12. └─────────────────────────────────────────────────────────────────────────┘
  13. }
  14.  
  15. uses
  16.   dos;
  17.  
  18. var
  19.   r: registers;
  20.  
  21. begin
  22.   writeln('Mouse sensitivity viewer (ShwSense v1.3b), Copyright (c) 1996 by Virtuoso.');
  23.   writeln;
  24.  
  25.   r.AX := $1B;
  26.   intr($33, r);
  27.  
  28.   writeln('Horizontal speed = ', r.BX);
  29.   writeln('Vertical   speed = ', r.CX);
  30. end.
  31.